﻿Public Module modCommon
    ''' <summary>
    '''  把相关主档信息，设置到CheckedListBoxControl控件中
    ''' </summary>
    ''' <param name="chl">目标CheckedListBoxControl控件</param>
    ''' <param name="type_name">类型名称</param>
    Public Sub setLhjChkList(chl As DevExpress.XtraEditors.CheckedListBoxControl, type_name As String, status As String)
        Dim objHWSetting As New clsHWSetting
        Dim dt As DataTable
        dt = objHWSetting.selectByTy("LH", "LHJ", type_name, status)
        chl.Items.Clear()
        If dt.Rows.Count > 0 Then
            For i As Integer = 0 To dt.Rows.Count - 1
                chl.Items.Add(dt.Rows(i)("equip_id"))
            Next
        End If
    End Sub

End Module
